#show that cf scores and partisan affilation match onto each other
#appendix figure a1

css2_2<- read.csv("cf_comparison.csv")
p2 <- ggplot(data=css2_2, aes(x=contributor.cfscore, group=as.factor(dem), fill=as.factor(dem))) +
  geom_density( alpha=.25, adjust=3)+ xlim(-2.5,2.5)+theme_light()+theme(legend.position="none")+scale_fill_brewer(palette = "Set1")+
  xlab("Individual CF Score")+ ylab("Density")+ggtitle("L2 Partisanship and CF Scores are highly related")
p2
